unit ClassTJ3BaseTAG;

interface

uses System.Classes;

type
  TJ3KmlBaseTAG = class
    private
      FStr: TStringList;
    protected
      function GetIniTAG: string;
      function GetFimTAG: string;
      function GetTAG:string; virtual; abstract;
      property Linhas: TStringList read FStr write FStr;
     public
      constructor Create;
      destructor Destroy; override;

      function GetLines: String; virtual; abstract;
  end;


implementation

{ TJ3KmlBaseTAG }

constructor TJ3KmlBaseTAG.Create;
begin
  inherited Create;
  FStr := TStringList.Create;
end;

destructor TJ3KmlBaseTAG.Destroy;
begin
  FStr.Free;
  inherited Destroy;
end;

function TJ3KmlBaseTAG.GetIniTAG: string;
begin
  Result := '<' + GetTAG + '>';
end;

function TJ3KmlBaseTAG.GetFimTAG: string;
begin
    Result := '</' + GetTAG + '>';
end;

end.
